1 POKE 53272, 23 5 GOTO 400 7 PRINT"[147]" 10 FORI=0 TO 35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 20 PRINT"----------------------------------------" 30 PRINT"[150][197]NTER FONT FOR ARTICLE HEADING" 40 INPUT MD$ 50 PRINT"[197]NTER FONT FOR HEADING" 60 INPUT DM$ 70 PRINT"[197]NTER FONT FOR SUB-HEADING" 80 INPUT LJ$ 90 PRINT"[197]NTER FONT FOR DESCRIPTION" 100 INPUT OJ$ 110 IF MD$="WIDE"THEN DE$=CHR$(15):EN$=CHR$(14) 120 IF MD$="BOLD"THEN DE$=CHR$(29):EN$=CHR$(14) 130 IF MD$="NORMAL"THEN DE$=CHR$(15):EN$=CHR$(15) 140 IF MD$="FINE"THEN DE$=CHR$(29):EN$=CHR$(29) 150 IF DM$="WIDE"THEN ED$=CHR$(15):NE$=CHR$(14) 160 IF DM$="BOLD"THEN ED$=CHR$(29):NE$=CHR$(14) 170 IF DM$="NORMAL"THEN ED$=CHR$(15):NE$=CHR$(15) 180 IF DM$="FINE"THEN ED$=CHR$(29):NE$=CHR$(29) 190 IF LJ$="WIDE"THEN ND$=CHR$(15):EE$=CHR$(14) 200 IF LJ$="BOLD"THEN ND$=CHR$(29):EE$=CHR$(14) 210 IF LJ$="NORMAL"THEN ND$=CHR$(15):EE$=CHR$(15) 220 IF LJ$="FINE"THEN ND$=CHR$(29):EE$=CHR$(29) 230 IF OJ$="WIDE"THEN DN$=CHR$(15):NL$=CHR$(14) 240 IF OJ$="BOLD"THEN DN$=CHR$(29):NL$=CHR$(14) 250 IF OJ$="NORMAL"THEN DN$=CHR$(15):NL$=CHR$(15) 260 IF OJ$="FINE"THEN DN$=CHR$(29):NL$=CHR$(29) 270 IF MD$="" THEN DE$=CHR$(15):EN$=CHR$(14) 280 IF DM$=""THEN ED$=CHR$(29):NE$=CHR$(14) 290 IF LJ$=""THEN ND$=CHR$(15):EE$=CHR$(15) 300 IF OJ$=""THEN DN$=CHR$(29):NL$=CHR$(29) 350 GOTO 1445 400 POKE 53280,0:POKE 53281,0:POKE 646,1 402 PRINT"[147]" 405 REM **** MAIN MENU **** 410 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 420 PRINT" [205]AIN [205]ENU " 430 PRINT"---------------------------------------" 440 PRINT"1.---[194]EGIN A NEW ARTICLE" 450 PRINT"2.----[197]NTER NEXT HEADING" 460 PRINT"3.-----[197]NTER NEXT SUB-HEADING" 470 PRINT"4.------[197]NTER NEXT DESCRIPTION" 480 PRINT"5.-------[201]NSTRUCTIONS" 490 PRINT"6.--------[201]NFORMATION" 492 PRINT"7.---------[196]EFINE TYPE SETTINGS" 495 PRINT"8.----------[209]UIT PROGRAM" 500 PRINT"---------------------------------------" 510 PRINT"[150][208]LEASE PRESS THE [206]UMBER[146] OF YOUR CHOICE." 520 PRINT"****************************************" 535 GET A$ 540 IF A$="" THEN GOTO 535 550 IF A$="1" THEN GOTO 600:REM ARTICLE 555 IF A$="2" THEN GOTO 700:REM HEADING 560 IF A$="3" THEN GOTO 800:REM SUB HEADING 565 IF A$="4" THEN GOTO 900:REM DESCRIPTION 570 IF A$="5" THEN GOTO 960:REM INSTRUCTIONS 580 IF A$="6" THEN 1200:REM INFORMATION 590 IF A$="7" THEN 1445:REM PROGRAM SETTINGS 591 IF A$="8"THEN NEW:END:REM QUIT 592 IF A$="[133]"THEN 10000 593 IF A$="[134]"THEN 535 594 IF A$="[135]"THEN 535 595 IF A$="[136]"THEN 960 599 REM **** NEW ARTICLE **** 600 PRINT"[147]" 605 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 610 PRINT"----------------------------------------" 612 GET D$:IF D$=""THEN 612 613 IF D$="[133]"THEN GOTO20000 614 IF D$="[134]"THEN 1 615 IF D$="[135]"THEN 1 616 IF D$="[136]"THEN 960 618 PRINT"[150][208]LEASE TYPE YOUR ARTICLE HEADING" 620 INPUT A$ 630 OPEN 4,4,7 631 PRINT"[208]RINTING..." 635 PRINT#4,DE$:PRINT#4,EN$;LD$;A$;DL$ 636 CLOSE 4 637 PRINT"[196]ONE! [208]RESS ANY KEY TO CONTINUE..." 638 GET A$ 639 IF A$="" THEN GOTO 638 650 GOTO 1 699 REM **** NEW HEADING **** 700 PRINT"[147]" 705 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 710 PRINT"----------------------------------------" 711 GET A$:IF A$=""THEN 711 712 IF A$="[133]"THEN 30000 713 IF A$="[134]"THEN 1 714 IF A$="[135]"THEN 1 715 IF A$="[136]"THEN 960 716 PRINT"[150][208]LEASE TYPE THE [210]OMAN [206]UMERAL[146] FOR YOUR HEADING" 720 INPUT A$ 725 PRINT"[150][208]LEASE TYPE YOUR HEADING" 729 INPUT B$ 735 OPEN 4,4,7 736 PRINT"[208]RINTING..." 740 PRINT#4,ED$:PRINT#4,NE$;EL$;" "A$". "B$;LE$ 741 CLOSE 4 742 PRINT"[196]ONE! [208]RESS ANY KEY TO CONTINUE..." 743 GET A$ 744 IF A$="" THEN GOTO 743 750 GOTO 1 799 REM **** NEW SUB HEADING **** 800 PRINT"[147]" 805 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 810 PRINT"----------------------------------------" 811 GET A$:IF A$=""THEN 811 812 IF A$="[133]"THEN 40000 813 IF A$="[134]"THEN 1 814 IF A$="[135]"THEN 1 815 IF A$="[136]"THEN 960 816 PRINT"[150][208]LEASE TYPE THE [204]ETTER[146] OF YOUR SUB-HEADING" 820 INPUT A$ 825 PRINT"[208]LEASE TYPE YOUR SUB-HEADING" 829 INPUT B$ 835 OPEN 4,4,7 836 PRINT"[208]RINTING..." 840 PRINT#4,ND$:PRINT#4,EE$;LN$;" "A$". "B$;LF$ 841 CLOSE 4 842 PRINT"[196]ONE! [208]RESS ANY KEY TO CONTINUE..." 843 GET A$ 844 IF A$="" THEN GOTO 843 850 GOTO 1 899 REM **** NEW DESCRIPTION **** 900 PRINT"[147]" 905 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 910 PRINT"----------------------------------------" 911 GET A$:IF A$=""THEN 911 912 IF A$="[133]"THEN 50000 913 IF A$="[134]"THEN 1 914 IF A$="[135]"THEN 1 915 IF A$="[136]"THEN 960 916 PRINT"[150][212]YPE THE [206]UMBER[146] OF YOUR DESCRIPTION" 920 INPUT A$ 925 PRINT"[212]YPE YOUR SENTENCE OR PHRASE" 929 INPUT B$ 935 OPEN 4,4,7 936 PRINT"[208]RINTING..." 940 PRINT#4,DN$:PRINT#4,NL$;FD$;" "A$". "B$;DF$ 941 CLOSE 4 942 PRINT"[196]ONE! [208]RESS ANY KEY TO CONTINUE..." 943 GET A$ 944 IF A$="" THEN GOTO 943 950 GOTO 1 960 PRINT"[147]" 961 PRINT"[212]HIS PROGRAM PRINTS OUT AN OUTLINE ON YOUR COMMODORE PRINTER." 962 PRINT"[201]T WILL FIRST ASK YOU FOR A:NUMBER,ROMANNUMERAL,LETTER,ETC..." 963 PRINT"[206]EXT IT WILL ASK FOR THE HEADING,SENTEN-CE,PHRASE,ETC..." 964 PRINT 965 PRINT"[150][208]RESS ANY KEY TO CONTINUE." 966 GET A$ 967 IF A$="" THEN GOTO 966 1004 PRINT"[145][197]XAMPLE--- " 1005 PRINT"[150]****************************************" 1006 PRINT"[212]YPE THE [204]ETTER[146] OF YOUR SUB-HEADING" 1007 PRINT"? [154][193]" 1008 PRINT"[212]YPE YOUR SUB-HEADING NOW" 1009 PRINT"? [154][212]YPES OF [195]OMPUTERS" 1012 PRINT 1013 PRINT"[150][217]OUR PRINTER WILL PRINT THIS:" 1014 PRINT 1015 PRINT"[154][193]. [212]YPES OF [195]OMPUTERS" 1016 PRINT"[150]****************************************" 1017 PRINT 1020 PRINT"[208]RESS [193]NY [203]EY TO [195]ONTINUE..." 1021 GET A$ 1022 IF A$="" THEN GOTO 1021 1030 REM **** CHOOSING FONT INST. **** 1040 PRINT"[147]" 1050 PRINT"[212]O DEFINE THE FONT THAT WILL PRINT ON YOUR PRINTER, DO THE" 1060 PRINT"FOLLOWING: 1070 [153]"1) PEEKE AWARE OF THE FOUR FONTS OF PRINT ((null)IDE, PEEKOLD, (null)ORMAL, AND ASCIN 1080 PRINT"2) [193]LSO BE AWARE OF THE FOUR TYPES OF INFORMATION THAT YOU CAN" 1090 PRINT"PRINT ([193]RTICLE HEADING, HEADING, SUB- HEADING, AND DESCRIPTIONS)." 1100 PRINT"3) [211]ELECT '7' (DEFINE TYPE SETTINGS), THEN '1' IN THE 2ND MENU." 1110 PRINT"4) [193]NSWER THE QUESTIONS ACCORDING TO YOUR WISHES." 1120 PRINT"[208]RESS ANY KEY TO CONTINUE..." 1130 GET B$ 1140 IF B$=""THEN GOTO 1130 1145 GOTO 2000 1150 PRINT"[147][210][197][205][201][206][196][197][210]: [215]HEN YOU SET THE PRINT TYPE IN [211]ECTION" 1160 PRINT" SEVEN, BE SURE YOU TYPE THEM IN [204][207][215][197][210][160][195][193][211][197]. 1170 [153]" ATNLSO, DEFAULT SETTINGS ARE: (null)IDE, PEEKOLD, (null)ORMAL 1180 PRINT" THEN [198]INE (IN ORDER), SO IF THE SPACING IS OFF 1190 [153]" IT IS BECAUSE THE PROGRAM IS NOT SET FOR VAL(null)VAL(null)(null)CLOSE" 1192 [153]" COMBINATION. (null)O DO THIS, MODIFY LINES 740," 1194 [153]" 840, AND 940 FOR THE BEST ACCURACY." 1195 [153]" (null)F COURSE, THE TEXTURE DEFAULT IS NORMAL." 1196 [153]"(null)RESS ANY KEY TO CONTINUE..." 1198 [161] M$:[139] M$[178]"" [167] 1198 1199 [137] 2090 1200 [143] **** INFORMATION **** 1205 [153]"LOAD" 1210 [153]"(null)HE ORIGINAL PROGRAM (OUTLINER V.1) WAS UPLOADED TO (null)UANTUM(null)INK BY" 1230 [153]"(null)SER307. RIGHT$T WAS LATER REVISED BY (null)ICHAELCHR$OMEZ, ALSO KNOWN AS (null)VAL(null)(null)CHR$ ON" 1240 [153]"(null)(null)INK. (null)IKE DECIDED TO REVISE IT" 1250 [153]"ONCE MORE, THUS BECOMING 'OUTLINER V.4.'" 1255 [153]"RIGHT$F YOU HAVE ANY QUESTIONS, COMMENTS, OR IDEAS FOR THIS PROGRAM," 1260 [153]"(null)OU MAY EITHER CONTACT HIM ONLINE VIA VAL(null)ATNRIGHT$(null) ((null)VAL(null)(null)CHR$), OR MAIL TO 1270 PRINT"THIS ADDRESS:" 1280 PRINT"[205]IKE [199]OMEZ 1290 [153]"C/O CHR$OMEZ VALNTERPRISES .0416" 1300 [153]"13514 PEEKUTTERFLY (null)ANE" 1310 [153]"LEFT$OUSTON, (null)EXAS 77079" 1312 [153]"(null)RESS ANY KEY TO CONTINUE..." 1314 [161] D$ 1316 [139] D$[178]"" [167] 1314 1318 [153]"LOAD" 1320 [153]"(null)ERSION 1 WAS A GOOD PROGRAM, ALTHOUGH (null)IKE FELT IT NEEDED REPAIR." 1330 [153]"RIGHT$T DID NOT ALLOW LOWER CASE PRINTING, NOR DID IT EVEN HAVE LOWER" 1340 [153]"CASE ON THE SCREEN! (null)NLY ONE TYPE OF PRINT WAS AVAILABLE (WIDE), 1350 PRINT"AND THE SCREENS ARE NOT AS HANDSOME AS VERSIONS TWO AND THREE." 1360 PRINT"[214]ERSION 2 WAS A BIG IMPROVEMENT OVER [213]SER307'S 'OUTLINER V.1'," 1370 PRINT"ENABLING THE USER TO PRINT IN LOWER CASEUSE FOUR TYPES, AND MUCH" 1380 PRINT"MORE." 1390 PRINT"[214]ERSION 3 GIVES THE USER THE ABILITY TO CHOOSE HIS PRINT TYPE, " 1400 PRINT"HANDSOMER SCREENS, AND MUCH, MUCH, MORE!" 1410 PRINT"[208]RESS ANY KEY TO CONTINUE..." 1420 GET C$ 1430 IF C$=""THEN 1420 1440 GOTO2340 1445 REM **** DEFINE SETTINGS **** 1447 PRINT "[147]" 1450 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 1460 PRINTTAB(13)"[211]ETTINGS [205]ENU" 1470 PRINT"---------------------------------------" 1480 PRINT"1.---[196]EFINE TYPE FONT" 1490 PRINT"2.----[196]EFINE TYPE TEXTURE" 1515 PRINT"3.-----[197]XIT TO [205]AIN [205]ENU" 1520 PRINT"---------------------------------------" 1530 PRINT"[150][208]LEASE PRESS THE [206]UMBER[146] OF YOUR CHOICE." 1540 PRINT"****************************************" 1550 GET A$ 1555 IF A$=""THEN 1550 1560 IF A$="1"THEN7 1570 IF A$="2"THEN1610 1580 IF A$="3"THEN1 1590 IF A$="[133]"THEN 10000 1600 IF A$="[134]"THEN 1550 1602 IF A$="[135]"THEN 1 1604 IF A$="[136]"THEN 960 1605 REM **** TEXTURE **** 1610 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 1620 PRINT"---------------------------------------" 1630 PRINT"[150][197]NTER TEXTURE FOR ARTICLE HEADING" 1640 INPUT DB$ 1650 PRINT"[197]NTER TEXTURE FOR HEADING" 1660 INPUT BD$ 1670 PRINT"[197]NTER TEXTURE FOR SUB-HEADING" 1680 INPUT ZA$ 1690 PRINT"[197]NTER TEXTURE FOR DESCRIPTION" 1700 INPUT AZ$ 1710 IF DB$="NORMAL"THEN LD$=CHR$(146):DL$=CHR$(146) 1720 IF DB$="REVERSE"THEN LD$=CHR$(18):DL$=CHR$(146) 1780 IF BD$="NORMAL"THEN EL$=CHR$(146):LE$=CHR$(146) 1790 IF BD$="REVERSE"THEN EL$=CHR$(18):LE$=CHR$(146) 1800 IF ZA$="NORMAL"THEN LN$=CHR$(146):LF$=CHR$(146) 1810 IF ZA$="REVERSE"THEN LN$=CHR$(18):LF$=CHR$(146) 1820 IF AZ$="NORMAL"THEN FD$=CHR$(146):DF$=CHR$(146) 1830 IF AZ$="REVERSE"THEN FD$=CHR$(18):DF$=CHR$(146) 1840 GOTO 1445 1988 REM (C) 1988 2000 REM **** DEFINING TEXTURE **** 2005 PRINT"[147]" 2010 PRINT"[212]O DEFINE THE TEXTURE OF PRINT THAT IS PRINTED OUT ON YOUR PRINTER, 2020 [153]"DO THE FOLLOWING:" 2030 [153]"1) PEEKE AWARE OF THE TWO TEXTURES OF PRINT((null)ORMAL AND (null)EVERSE), AND" 2032 [153]"THE FOUR TYPES OF INFORMATION THAT CAN BE PRINTED(ATNRTICLE HEADING," 2034 [153]"HEADING, SUB-HEADING, AND DESCRIPTIONS)." 2040 [153]"2) ATNLSO BE AWARE OF THAT ONLY TWO FONTS CAN BE PRINTED IN REVERSE" 2050 [153]"((null)ORMAL AND WIDE)." 2060 [153]"3) (null)ELECT '7' (DEFINE TYPE SETTINGS), THEN '2' IN THE 2ND MENU." 2070 [153]"4) ATNNSWER THE QUESTIONS ACCORDING TO YOUR WISHES." 2072 [153]"(null)RESS ANY KEY TO CONTINUE..." 2074 [161] A$ 2076 [139] A$[178]"" [167] 2074 2080 [137] 1150 2090 [143] **** FUNCTION KEY INFO **** 2095 [153]"LOAD" 2100 [153]"(null)HE FUNCTION KEY DEFINITIONS ARE AS FOLLOWS:" 2110 [153]"ASC1WAIT EXECUTES THE (null)RIGHT$VAL(null) COMMAND. (null)OU MAY VIEW THE STATISTICS OF" 2120 [153]"'ASCONT-(null)EXTURE' WITH THIS. (null)HEN IN THE MAIN MENU, YOU CAN VIEW ALL" 2130 [153]"STATISTICS OF THIS COMBINATION." 2150 [153]"ASC3WAIT (null)VAL(null)(null)(null)(null)S YOU TO THE PREVIOUS MENU." 2160 [153]"ASC5WAIT LENATN(null)LENVAL(null)S THE OPERATION YOU ARE CURRENTLY INVOLVED IN. 2170 PRINT"[198]3 AND [198]5 HAVE VIRTUALLY THE SAME OPERTATION." 2180 PRINT"[198]7[146] OFFERS YOU THE HELP THAT YOU NEED. [215][193][210][206][201][206][199]: [217]OU WILL NOT" 2190 PRINT"BE RETURNED TO THE OPERATION YOU WERE PERFORMING BEFORE PRESSING" 2200 PRINT"[198]7. [217]OU WILL BE RETURNED TO THE [205]AIN MENU." 2202 PRINT"[208]RESS ANY KEY TO CONTINUE..." 2204 GET A$ 2206 IF A$=""THEN 2204 2208 GOTO 2210 2210 PRINT"[147][215]HEN ENTERING A PRINTING AREA, YOU WILL SEE NO CURSOR OR COMMAND." 2220 PRINT"[212]HIS IS A PROMPT TO EITHER PRESS A FUNCTION KEY, OR PRESS THE" 2230 PRINT"SPACE BAR TO PROCEED." 2300 PRINT"[208]RESS ANY KEY TO CONTINUE..." 2310 GET A$ 2320 IF A$=""THEN 2310 2330 GOTO 1 2340 PRINT"[147][214]ERSION 4 IS HOPEFULLY THE FINAL ONE OF THE [207]UTLINER SERIES," 2350 PRINT"AND IT IS A GOOD ONE, [201] MIGHT ADD. [201] HAVE ADDED FUNCTIONS TO [198]1-7," 2360 PRINT"ANOTHER MENU, AND THE ABILITY TO PRINT IN REVERSE. [200]AVE FUN!" 2370 PRINT"[208]RESS ANY KEY TO CONTINUE..." 2380 GET A$ 2390 IF A$=""THEN 2380 2400 GOTO 1 10000 REM **** MENU VIEW **** 10010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 10020 PRINT"---------------------------------------" 10030 PRINT"[201]NFORMATION [198]ONT [212]EXTURE" 10040 PRINT"----------- ---- -------" 10045 IF MD$="NORMAL"THEN PRINT"[193]RTICLE [200]EADING ";MD$;"[157][157] ";DB$ 10050 IF MD$<>"NORMAL"THEN PRINT"[193]RTICLE [200]EADING ";MD$;" ";DB$ 10055 IF DM$="NORMAL"THEN PRINT"[200]EADING ";DM$;"[157][157] ";BD$ 10060 IF DM$<>"NORMAL"THEN PRINT"[200]EADING ";DM$;" ";BD$ 10065 IF LJ$="NORMAL"THEN PRINT"[211]UB-[200]EADING ";LJ$;"[157][157] ";ZA$ 10070 IF LJ$<>"NORMAL"THEN PRINT"[211]UB-[200]EADING ";LJ$;" ";ZA$ 10075 IF OJ$="NORMAL"THEN PRINT"[196]ESCRIPTION ";OJ$;"[157][157] ";AZ$ 10080 IF OJ$<>"NORMAL"THEN PRINT"[196]ESCRIPTION ";OJ$;" ";AZ$ 10090 PRINT"[208]RESS ANY KEY TO CONTINUE..." 10100 GET A$ 10110 IF A$=""THEN 10100 10120 GOTO 1 20000 REM **** ATNRTICLE RUNIEW **** 20010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 20020 PRINT"---------------------------------------" 20030 PRINT"[193]RTICLE [200]EADING [201]NFORMATION" 20040 PRINT"------- ------- -----------" 20050 IF DB$="REVERSE" THEN PRINT"";MD$;" REVERSE[146]" 20060 IF DB$="NORMAL" THEN PRINT"";MD$;" NORMAL" 20070 PRINT"[208]RESS ANY KEY TO CONTINUE..." 20080 GET A$ 20090 IF A$=""THEN20080 20100 GOTO 599 30000 REM **** LEFT$EADING (null)IEW **** 30010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 30020 PRINT"---------------------------------------" 30030 PRINT"[200]EADING [201]NFORMATION" 30040 PRINT"------- -----------" 30050 IF BD$="REVERSE" THEN PRINT"";DM$;" REVERSE[146]" 30060 IF BD$="NORMAL" THEN PRINT"";DM$;" NORMAL" 30070 PRINT"[208]RESS ANY KEY TO CONTINUE..." 30080 GET A$ 30090 IF A$=""THEN30080 30100 GOTO 699 40000 REM **** (null)UB-LEFT$EADING (null)IEW **** 40010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 40020 PRINT"---------------------------------------" 40030 PRINT"[211]UB-[200]EADING [201]NFORMATION" 40040 PRINT"----------- -----------" 40050 IF ZA$="REVERSE" THEN PRINT"";LJ$;" REVERSE[146]" 40060 IF ZA$="NORMAL" THEN PRINT"";LJ$;" NORMAL" 40070 PRINT"[208]RESS ANY KEY TO CONTINUE..." 40080 GET A$ 40090 IF A$=""THEN 40080 40100 GOTO 799 50000 REM **** STR$ESCRIPTION (null)IEW **** 50010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT 50020 PRINT"---------------------------------------" 50030 PRINT"[196]ESCRIPTION [201]NFORMATION" 50040 PRINT"----------- -----------" 50050 IF AZ$="REVERSE"THEN PRINT"";OJ$;" REVERSE[146]" 50060 IF AZ$="NORMAL"THEN PRINT"";OJ$;" NORMAL" 50070 PRINT"[208]RESS ANY KEY TO CONTINUE..." 50080 GET A$ 50090 IF A$=""THEN 50080 50100 GOTO 899